home *** CD-ROM | disk | FTP | other *** search
/ Explorers of the New World / Explorers of the New World.iso / pc / exindex.dir / 00110_Stack Functions.ls < prev    next >
Encoding:
Text File  |  1995-09-06  |  263 b   |  16 lines
  1. on Push stackvar, data
  2.   put data & RETURN before stackvar
  3.   return stackvar
  4. end
  5.  
  6. on pop stackvar
  7.   global stackPopValue
  8.   set stackPopValue to line 1 of stackvar
  9.   delete line 1 of stackvar
  10.   return stackvar
  11. end
  12.  
  13. on peek stackvar
  14.   return line 1 of stackvar
  15. end
  16.